home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / Userprep / Tiles.prp < prev   
Text File  |  1996-08-24  |  3KB  |  129 lines
  1. % Begin UserPrep file.
  2. %
  3. % File : Tiles.prp
  4. % FreeHand 7 UserPrep file.
  5. %
  6. % UserPrep file for modifying the printing of tiled fills. 
  7. % To enable this file, select it in the Print Setup dialog UserPrep popup,  
  8. % or set the preference in the Expert Input/Output options for
  9. % UserPrep to Tiles.prp.
  10. % To verify that this is enabled, print to file, and look for 
  11. % Tiles.prp in the print file. If you find this text, 
  12. % it is enabled.
  13. %
  14. % This UserPrep will cause tiled fills to print more
  15. % slowly, so should only be used if necessary to correct printing
  16. % problems.
  17. %
  18. % Version 1.0 Nov. 25, 1994
  19. % Copyright (C) Macromedia Inc. 1995, 1996  All rights reserved. 
  20.  
  21. /PATtcalc{
  22. gsave
  23. exch concat 
  24. matrix currentmatrix exch 
  25. 2 ne {
  26. dup 4 get exch dup 5 get exch
  27. XStep 0 dtransform round exch round exch
  28. XStep div exch XStep div exch
  29. 0 YStep dtransform round exch round exch
  30. YStep div exch YStep div exch
  31. 7 -3 roll astore
  32. } if
  33. grestore
  34.  }bdf
  35.  
  36.  /PATmp{
  37. exch 
  38. dup 
  39. length 8 add 
  40. dict copy 
  41. begin 
  42. TilingType PATtcalc 
  43. /PATcurrentMtx xdf 
  44. currentdict /Multi known not {/Multi 1 def} if
  45. /FontType 3 def
  46. /Encoding 256 array def
  47. 3 string 0 1 255 
  48. {Encoding exch dup 3 index cvs cvn put} for pop
  49. /FontMatrix matrix def
  50. /FontBBox BBox def
  51. /BuildChar {
  52. mark 3 1 roll
  53. exch begin
  54. Multi 1 ne {PaintData exch get}{pop}ifelse
  55. PaintType 2 eq Multi 1 ne or
  56. {XStep 0 FontBBox aload pop setcachedevice}
  57. {XStep 0 setcharwidth}ifelse
  58. currentdict 
  59. /PaintProc load 
  60. end
  61. gsave exec grestore
  62. cleartomark
  63. }bdf
  64. currentdict 
  65. end
  66. /foo exch
  67. definefont
  68.  }bdf
  69.  
  70.  
  71.  /PATsp{
  72. /PATcurrent xdf
  73. PATcurrent /PaintType get 2 eq
  74. {/PATcolor xdf}if
  75.  }bdf
  76.  
  77.  /PATpcalc{
  78. PATcurrent begin
  79. gsave
  80. PATcurrentMtx setmatrix
  81. BBox aload pop pop pop translate
  82. pathbbox
  83. grestore
  84. YStep div ceiling 4 1 roll
  85. XStep div ceiling 4 1 roll
  86. YStep div floor 4 1 roll
  87. XStep div floor 4 1 roll
  88. 2 index sub cvi abs
  89. exch 3 index sub cvi abs exch
  90. 4 2 roll
  91. YStep mul exch XStep mul exch
  92. end
  93.  }bdf
  94.  
  95.  
  96.  /PATfill{
  97. {{eoclip}fp}{{clip}fp}ifelse
  98. PATpcalc 
  99. newpath
  100. PATcurrent dup begin
  101. setfont
  102. PATcurrentMtx setmatrix
  103. PaintType 2 eq {PATcolor vc} if
  104. 3 index string 
  105. 0 1 Multi 1 sub { 
  106. 3 index 3 index moveto
  107. Multi 1 ne {dup PaintColors exch get vc} if
  108. 0 1 7 index 1 sub { 
  109. 2 index 
  110. exch 
  111. 2 index put
  112. } for
  113. pop 
  114. 3 index 
  115. {
  116. currentpoint 
  117. 2 index show
  118. YStep add moveto
  119. }repeat
  120. }for
  121. 5 {pop} repeat 
  122. end
  123.  }bdf
  124.  /PATprestroke{{strokepath}fp}bdf
  125.  /PATstroke{false PATfill}bdf
  126.  
  127.  
  128. % End UserPrep 
  129.